SALEPR1 ITEM1 *----------------------------------------------------------------- * do wip_rept saf = set('safety') set safety off sele jobs set order to job_code sele creditor set order to sub_code sele stmaster set order to stock_code copy with production to tempstck field stock_code,descriptio use tempstck in sele() order stock_code sele saleprod set order to prod_code use jctrans in sele() order job_trans sele jctrans set relation to sub_code in PROD_CODE ACT_CODE STOCK_CODE de into tempstck froom = "" toooo = "" do wiprange sele jctrans set filter to jctrans->job_code => froom .and. ; jctrans->job_code =< toooo reference = "REFERENCE" dateword = "DATE" do prtbtch with "[ Detailed Work In Progress Schedule ]","wip" *report form wip_sum &&to print noeject use in jctrans use in tempstck erase "tempstck.dbf" erase "tempstck.mdx" set safety &saf. RETURN PROCEDURE sum_wip && DBMITEM2.ONCLICK *----------------------------------------------------------------- * NAME * ONCLICK - Event handler for DBMITEM2 *----------------------------------------------------------------- * do wip_reps saf = set('safety') set safety off sele jobs set order to job_code sele creditor set order to sub_code sele stmaster set order to stock_code copy with production to tempstck field stock_code,descriptio use tempstck in sele() order stock_code sele saleprod set order to prod_code use jctrans in sele() order job_trans sele jctrans set relation to sub_code into creditor,; stock_code into stmaster,; job_code into jobs,; prod_code into saleprod sele jobs set relation to stock_code into tempstck froom = "" toooo = "" do wiprange sele jctrans set filter to jctrans->job_code => froom .and. ; jctrans->job_code =< toooo reference = "REFERENCE" dateword = "DATE" do prtbtch with "[ Summary Work In Progress Schedule ]","w PROD_CODE PROD_CODE ACT_CODE ACT_CODE STOCK_CODE STOCK_CODE